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-- file CopierDefs.Mesa 

-- last modified by Satterthwaite, August 26, 1977 10:61 PM 

DIRECTORY 

StringDefs: FROM "stringdef s" , 
SegmentDefs: FROM "segmentdef s", 
BcdDefs: FROM "bcddefs". 
SymbolTableDefs: FROM "symbol tabledefs" , 
SymDefs: FROM "symdefs"; 

CopierDefs: DEFINITIONS ■ 
BEGIN 
OPEN SymDefs; 

-- implemented by FilePack 

FilePacklnit: PROCEDURE [self: STRING, version: BcdDefs. VersionStamp]; 
FilePackReset: PROCEDURE; 

CreateFileTable: PROCEDURE [CARDINAL]; 

EnterFile: PROCEDURE [STRING] RETURNS [HTIndex]; 

FindMdEntry: PROCEDURE [StringDefs .Substring, BcdDefs. VersionStamp] 

RETURNS [mdi: MDIndex]; 
FreeSymbolTable; PROCEDURE [SymbolTableDefs. SymbolTableBase]; 
GetSymbolTable: PROCEDURE [MDIndex] RETURNS [SymbolTableDefs .SymbolTabl eBase]; 
HtiToMdi: PROCEDURE [HTIndex] RETURNS [MDIndex]; 
LocateTables: PROCEDURE [CARDINAL]; 
MakeFileTableEntry: PROCEDURE 

[SegmentDefs. FileHandle, SymbolTableDefs. SymbolTableHandle] RETURNS [Filelndex]; 
TableForModule: PROCEDURE [MDIndex] RETURNS [SymbolTableDefs. SymbolTableHandle]; 

FileProblem: SIGNAL [hti: HTIndex] RETURNS [BOOLEAN]; 
FileVersionMix: SIGNAL [hti: HTIndex]; 
OwnFile: SIGNAL [file: SegmentDefs . FileHandle] ; 

-- implemented by SymbolCopier 

Copierlnit, CopierReset: PROCEDURE; 

CompleteContext: PROCEDURE [includedCTXIndex. BOOLEAN]; 

Delink: PROCEDURE [ISEIndex]; 

CloselncludedTable: PROCEDURE; 

CopylncludedSymbol : PROCEDURE [SEIndex, MDIndex] RETURNS [SEIndex]; 

CopyUnion: PROCEDURE [CTXIndex]; 

FillModule: PROCEDURE [sei: ISEIndex. file: HTIndex]; 

FindlncludedCtx: PROCEDURE [MDIndex, CTXIndex] RETURNS [includedCTXIndex]; 

OpenlncludedTable: PROCEDURE [MDIndex] RETURNS [success: BOOLEAN]; 

ResetlncludeCon texts: PROCEDURE; 

SearchFileCtx: PROCEDURE [HTIndex. includedCTXIndex] RETURNS [BOOLEAN, ISEIndex]; 

TableRelocated: SIGNAL; 
UnknownModule: SIGNAL [hti: HTIndex]; 

END... 


